eww textarea input fixup

* net/eww.el (eww-process-text-input): Allow inputting when the
point is at the start of the line, as the properties aren't
front-sticky.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce365099facd6840d73efa52fa9a518a30c0e441..d273d1585813990d018b971b761352f6357c30e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-07-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * net/eww.el (eww-process-text-input): Allow inputting when the
+       point is at the start of the line, as the properties aren't
+       front-sticky.
+
        * net/shr.el (shr-make-table-1): Ensure that we don't infloop on
        degenerate widths.
 

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d832aa7ef3e0f8ea3e0c76e2bf4b1b6d3b5d70ba..d65932ae7c9134612670578170a6ad81cab80291 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -603,7 +603,7 @@ appears in a <link> or <a> tag."
     (insert " ")))
 
 (defun eww-process-text-input (beg end length)
-  (let* ((form (get-text-property end 'eww-form))
+  (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form))
         (properties (text-properties-at end))
         (type (plist-get form :type)))
     (when (and form